home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / pcl-src.zoo / sys-package.lsp < prev    next >
Encoding:
Text File  |  1992-07-09  |  6.9 KB  |  149 lines

  1.  
  2.  
  3. ;;; Definitions for package SLOT-ACCESSOR-NAME of type ESTABLISH
  4. (LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME" :USE LISP::NIL :NICKNAMES
  5.     '("S-A-N"))
  6.  
  7. ;;; Definitions for package PCL of type ESTABLISH
  8. (LISP::IN-PACKAGE "PCL" :USE LISP::NIL)
  9.  
  10. ;;; Definitions for package ITERATE of type ESTABLISH
  11. (LISP::IN-PACKAGE "ITERATE" :USE LISP::NIL)
  12.  
  13. ;;; Definitions for package WALKER of type ESTABLISH
  14. (LISP::IN-PACKAGE "WALKER" :USE LISP::NIL)
  15.  
  16. ;;; Definitions for package SLOT-ACCESSOR-NAME of type EXPORT
  17. (LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME" :USE 'LISP::NIL :NICKNAMES
  18.     '("S-A-N"))
  19. (LISP::IMPORT 'LISP::NIL)
  20. (LISP::EXPORT 'LISP::NIL)
  21.  
  22. ;;; Definitions for package PCL of type EXPORT
  23. (LISP::IN-PACKAGE "PCL" :USE '("LISP" "ITERATE" "WALKER"))
  24. (LISP::IMPORT 'LISP::NIL)
  25. (LISP::EXPORT
  26.     '(PCL::CLASS-PRECEDENCE-LIST PCL::SLOT-DEFINITION
  27.          PCL::COMPUTE-APPLICABLE-METHODS-USING-CLASSES
  28.          PCL::SLOT-DEFINITION-WRITERS PCL::CLASS-OF
  29.          PCL::NO-APPLICABLE-METHOD PCL::STANDARD-WRITER-METHOD
  30.          PCL::ENSURE-CLASS-USING-CLASS PCL::ENSURE-GENERIC-FUNCTION
  31.          PCL::FIND-METHOD-COMBINATION PCL::MAP-DEPENDENTS
  32.          PCL::SLOT-MISSING PCL::SPECIALIZER PCL::CALL-NEXT-METHOD
  33.          PCL::ENSURE-GENERIC-FUNCTION-USING-CLASS
  34.          PCL::SLOT-MAKUNBOUND-USING-CLASS PCL::MAKE-INSTANCES-OBSOLETE
  35.          PCL::INTERN-EQL-SPECIALIZER PCL::REMOVE-DIRECT-SUBCLASS
  36.          PCL::METHOD-GENERIC-FUNCTION PCL::METHOD-QUALIFIERS
  37.          PCL::FUNCALLABLE-STANDARD-CLASS PCL::EXTRACT-LAMBDA-LIST
  38.          PCL::STANDARD-CLASS PCL::PRINT-OBJECT PCL::STRUCTURE-CLASS
  39.          PCL::COMPUTE-EFFECTIVE-SLOT-DEFINITION
  40.          PCL::GENERIC-FUNCTION-DECLARATIONS PCL::MAKE-INSTANCE
  41.          PCL::METHOD-LAMBDA-LIST PCL::DEFGENERIC
  42.          PCL::REMOVE-DIRECT-METHOD PCL::STANDARD-DIRECT-SLOT-DEFINITION
  43.          PCL::GENERIC-FUNCTION-METHODS PCL::VALIDATE-SUPERCLASS
  44.          PCL::REINITIALIZE-INSTANCE PCL::SLOT-EXISTS-P-USING-CLASS
  45.          PCL::STANDARD-METHOD PCL::STANDARD-ACCESSOR-METHOD
  46.          PCL::FUNCALLABLE-STANDARD-INSTANCE PCL::FUNCTION-KEYWORDS
  47.          PCL::STANDARD PCL::FIND-METHOD PCL::EXTRACT-SPECIALIZER-NAMES
  48.          PCL::INITIALIZE-INSTANCE PCL::GENERIC-FLET PCL::SLOT-UNBOUND
  49.          PCL::STANDARD-INSTANCE PCL::SLOT-DEFINITION-TYPE
  50.          PCL::COMPUTE-EFFECTIVE-METHOD PCL::ALLOCATE-INSTANCE
  51.          PCL::SYMBOL-MACROLET PCL::GENERIC-FUNCTION
  52.          PCL::GENERIC-FUNCTION-METHOD-COMBINATION
  53.          PCL::SPECIALIZER-DIRECT-METHODS PCL::ADD-DIRECT-SUBCLASS
  54.          PCL::WRITER-METHOD-CLASS PCL::SLOT-DEFINITION-INITARGS
  55.          PCL::METHOD-SPECIALIZERS PCL::GENERIC-FUNCTION-METHOD-CLASS
  56.          PCL::ADD-METHOD PCL::WITH-ACCESSORS
  57.          PCL::SLOT-DEFINITION-ALLOCATION
  58.          PCL::SLOT-DEFINITION-INITFUNCTION
  59.          PCL::SLOT-DEFINITION-LOCATION PCL::ADD-DIRECT-METHOD
  60.          PCL::SLOT-BOUNDP PCL::EQL-SPECIALIZER PCL::SHARED-INITIALIZE
  61.          PCL::STANDARD-GENERIC-FUNCTION
  62.          PCL::ACCESSOR-METHOD-SLOT-DEFINITION
  63.          PCL::SLOT-BOUNDP-USING-CLASS PCL::ADD-DEPENDENT
  64.          PCL::SPECIALIZER-DIRECT-GENERIC-FUNCTION
  65.          PCL::WITH-ADDED-METHODS PCL::COMPUTE-CLASS-PRECEDENCE-LIST
  66.          PCL::REMOVE-DEPENDENT PCL::NEXT-METHOD-P
  67.          PCL::GENERIC-FUNCTION-NAME PCL::SLOT-VALUE
  68.          PCL::EFFECTIVE-SLOT-DEFINITION PCL::CLASS-FINALIZED-P
  69.          PCL::COMPUTE-DISCRIMINATING-FUNCTION PCL::STANDARD-OBJECT
  70.          PCL::CLASS-DEFAULT-INITARGS PCL::CLASS-DIRECT-SLOTS
  71.          PCL::FUNCALLABLE-STANDARD-INSTANCE-ACCESS PCL::BUILT-IN-CLASS
  72.          PCL::NO-NEXT-METHOD PCL::SLOT-MAKUNBOUND
  73.          PCL::STANDARD-READER-METHOD PCL::GENERIC-FUNCTION-LAMBDA-LIST
  74.          PCL::GENERIC-FUNCTION-ARGUMENT-PRECEDENCE-ORDER
  75.          PCL::INVALID-METHOD-ERROR PCL::METHOD-COMBINATION-ERROR
  76.          PCL::SLOT-EXISTS-P PCL::FINALIZE-INHERITANCE
  77.          PCL::SLOT-DEFINITION-NAME
  78.          PCL::STANDARD-EFFECTIVE-SLOT-DEFINITION PCL::COMPUTE-SLOTS
  79.          PCL::CLASS-SLOTS PCL::EFFECTIVE-SLOT-DEFINITION-CLASS
  80.          PCL::STANDARD-INSTANCE-ACCESS PCL::WITH-SLOTS
  81.          PCL::DIRECT-SLOT-DEFINITION PCL::DEFINE-METHOD-COMBINATION
  82.          PCL::MAKE-METHOD-LAMBDA PCL::ENSURE-CLASS
  83.          PCL::DIRECT-SLOT-DEFINITION-CLASS PCL::METHOD-FUNCTION
  84.          PCL::STANDARD-SLOT-DEFINITION PCL::CHANGE-CLASS PCL::DEFMETHOD
  85.          PCL::UPDATE-INSTANCE-FOR-DIFFERENT-CLASS
  86.          PCL::UPDATE-INSTANCE-FOR-REDEFINED-CLASS
  87.          PCL::FORWARD-REFERENCED-CLASS PCL::SLOT-DEFINITION-INITFORM
  88.          PCL::REMOVE-METHOD PCL::READER-METHOD-CLASS PCL::CALL-METHOD
  89.          PCL::CLASS-PROTOTYPE PCL::CLASS-NAME PCL::FIND-CLASS
  90.          PCL::DEFCLASS PCL::COMPUTE-APPLICABLE-METHODS
  91.          PCL::DESCRIBE-OBJECT PCL::SLOT-VALUE-USING-CLASS
  92.          PCL::METHOD-COMBINATION PCL::EQL-SPECIALIZER-INSTANCE
  93.          PCL::GENERIC-LABELS PCL::METHOD PCL::SLOT-DEFINITION-READERS
  94.          PCL::CLASS-DIRECT-DEFAULT-INITARGS
  95.          PCL::CLASS-DIRECT-SUBCLASSES PCL::CLASS-DIRECT-SUPERCLASSES
  96.          PCL::SET-FUNCALLABLE-INSTANCE-FUNCTION))
  97.  
  98. ;;; Definitions for package ITERATE of type EXPORT
  99. (LISP::IN-PACKAGE "ITERATE" :USE '("WALKER" "LISP"))
  100. (LISP::IMPORT 'LISP::NIL)
  101. (LISP::EXPORT
  102.     '(ITERATE::SUMMING ITERATE::MINIMIZING ITERATE::PLIST-ELEMENTS
  103.          ITERATE::ITERATE* ITERATE::MAXIMIZING ITERATE::LIST-TAILS
  104.          ITERATE::*ITERATE-WARNINGS* ITERATE::GATHERING
  105.          ITERATE::EACHTIME ITERATE::ELEMENTS ITERATE::GATHER
  106.          ITERATE::LIST-ELEMENTS ITERATE::WHILE ITERATE::ITERATE
  107.          ITERATE::UNTIL ITERATE::JOINING ITERATE::COLLECTING
  108.          ITERATE::WITH-GATHERING ITERATE::INTERVAL))
  109.  
  110. ;;; Definitions for package WALKER of type EXPORT
  111. (LISP::IN-PACKAGE "WALKER" :USE '("LISP"))
  112. (LISP::IMPORT 'LISP::NIL)
  113. (LISP::EXPORT
  114.     '(WALKER::DEFINE-WALKER-TEMPLATE WALKER::*VARIABLE-DECLARATIONS*
  115.          WALKER::NESTED-WALK-FORM WALKER::VARIABLE-DECLARATION
  116.          WALKER::WALK-FORM-EXPAND-MACROS-P WALKER::VARIABLE-LEXICAL-P
  117.          WALKER::VARIABLE-SPECIAL-P WALKER::WALK-FORM
  118.          WALKER::VARIABLE-GLOBALLY-SPECIAL-P))
  119.  
  120. ;;; Definitions for package SLOT-ACCESSOR-NAME of type SHADOW
  121. (LISP::IN-PACKAGE "SLOT-ACCESSOR-NAME")
  122. (LISP::SHADOW 'LISP::NIL)
  123. (LISP::SHADOWING-IMPORT 'LISP::NIL)
  124. (LISP::IMPORT 'LISP::NIL)
  125.  
  126. ;;; Definitions for package PCL of type SHADOW
  127. (LISP::IN-PACKAGE "PCL")
  128. (LISP::SHADOW '(PCL::DOTIMES PCL::DOCUMENTATION))
  129. (LISP::SHADOWING-IMPORT 'LISP::NIL)
  130. (LISP::IMPORT '(SYSTEM::STRUCTUREP))
  131.  
  132. ;;; Definitions for package ITERATE of type SHADOW
  133. (LISP::IN-PACKAGE "ITERATE")
  134. (LISP::SHADOW 'LISP::NIL)
  135. (LISP::SHADOWING-IMPORT 'LISP::NIL)
  136. (LISP::IMPORT 'LISP::NIL)
  137.  
  138. ;;; Definitions for package WALKER of type SHADOW
  139. (LISP::IN-PACKAGE "WALKER")
  140. (LISP::SHADOW 'LISP::NIL)
  141. (LISP::SHADOWING-IMPORT 'LISP::NIL)
  142. (LISP::IMPORT 'LISP::NIL)
  143.  
  144. (in-package 'SI)
  145. (export '(%structure-name
  146.           %compiled-function-name
  147.           %set-compiled-function-name))
  148. (in-package 'pcl)
  149.